home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 3-Presentations / Markets / Education / HyperCard In Education / Jekyll and Hyde Help / background_4055.txt < prev    next >
Text File  |  1990-02-20  |  5KB  |  170 lines
  1. -- background: 4055 from stack: in
  2. -- bmap block id: 4336
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=389 top=84 right=100 bottom=418
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: PageNumber
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0007
  25. -- rect: left=54 top=4 right=68 bottom=420
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 22
  30. -- text size: 12
  31. -- style flags: 256
  32. -- line height: 16
  33. -- part name: comment
  34.  
  35.  
  36. -- part 10 (button)
  37. -- low flags: 80
  38. -- high flags: 8003
  39. -- rect: left=400 top=194 right=216 bottom=512
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Script for Real
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   get card field "NumberOfTries"
  51.   if it is empty then
  52.     show card field "A"
  53.     show card field "B"
  54.     show card field "HideTheBackground"
  55.     show card field "TheWord"
  56.     show button "Radio1"
  57.     set the hilite of card button "Radio1" to false
  58.     show button "Radio2"
  59.     set the hilite of card button "Radio2" to false
  60.     show button "done"
  61.     put 1 into card field "NumberOfTries"
  62.   end if
  63.  
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 12 (button)
  69. -- low flags: 80
  70. -- high flags: 8003
  71. -- rect: left=400 top=105 right=127 bottom=512
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Script for RealII
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   hide card field "A"
  83.   hide card field "B"
  84.   hide card field "HideTheBackground"
  85.   hide card field "TheWord"
  86.   hide button "Radio1"
  87.   hide button "Radio2"
  88.  
  89.   get card field "TheAnswer"
  90.   If (it="A") or (it="a") then  -- if he chose the first radio button
  91.     if (the hilite of card button "Radio1" = true) then
  92.       add 1 to card field "VocNumberCorrect" of card id 84491
  93.       put "You're Correct!!"
  94.     else
  95.       add 1 to card field "VocNumberWrong" of card id 84491
  96.       put "You're Wrong!  The correct answer was A.  Press the mouse"
  97.       lock screen
  98.       show card field "A"
  99.       Unlock screen with dissolve
  100.     end if
  101.   else                          -- if he chose the second radio button
  102.     if (the hilite of card button "Radio2" = true) then
  103.       add 1 to card field "VocNumberCorrect" of card id 84491
  104.       put "You're Correct"
  105.     else
  106.       add 1 to card field "VocNumberWrong" of card id 84491
  107.       put "You're Wrong!  The correct answer was B.  Press the mouse"
  108.       lock screen
  109.       show card field "B"
  110.       Unlock screen with dissolve
  111.     end if
  112.   end if
  113.   hide button "Done"
  114.   wait until the mouseclick
  115.   lock screen
  116.   hide card field "A"
  117.   hide card field "B"
  118.   unlock screen with dissolve
  119.   hide message box
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 8 (button)
  125. -- low flags: 80
  126. -- high flags: A004
  127. -- rect: left=324 top=318 right=342 bottom=512
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: I'm done with this Question
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   hide card field "A"
  139.   hide card field "B"
  140.   hide card field "HideTheBackground"
  141.   hide button "Radio1"
  142.   hide button "Radio2"
  143.   hide button "NoPageTurn"
  144.   hide card field "TheWord"
  145.   hide card field "TheAnswer" -- The user should never see this one
  146.   hide bkgnd button "I'm done with this Question"
  147.  
  148.   domenu "New button"
  149.   get the number of card buttons
  150.   set the name of card button it to "VocabularyQuestion"
  151.   set the loc of button "VocabularyQuestion" to 60,117
  152.   set the style of button "VocabularyQuestion" to transparent
  153.   set showname of button "VocabularyQuestion" to false
  154.   set the script of button "VocabularyQuestion" to the script of bkgnd button "Script for real"
  155.   set the icon of button "VocabularyQuestion" to 21060
  156.   set the rect of card button "VocabularyQuestion" to 35,114,85,151
  157.  
  158.   domenu "New button"
  159.   get the number of card buttons
  160.   set the name of card button it to "Done"
  161.   set the style of button "Done" to roundrect
  162.   set showname of button "Done" to true
  163.   set the script of button "Done" to the script of bkgnd button "Script for RealII"
  164.   set the rect of card button "done" to 186,73,286,95
  165.   hide card button "Done"
  166.  
  167.   choose browse tool
  168. end mouseUp
  169.  
  170.